setdisplay(240,320,32,1):paper(0xFFFFFF):ink(0):pen(0):cls
open"readbyte.sdlbas" for input as #1
  while eof(1)=0
     a=readbyte(1)
     prints(str$(a)+" "+chr$(a))
     for n=0 to 5:waitvbl:next
   wend
 close#1